home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / programming / arexx / rexxbgui / activitydata.rexx next >
OS/2 REXX Batch file  |  1999-06-14  |  2KB  |  96 lines
  1. /* REXX */
  2. /* REXX script for rexxbgui.library: show Activity data files */
  3.  
  4. if ~show('l','rexxbgui.library') then do
  5.     if ~addlib('rexxbgui.library',0,-30) then do
  6.         exit(20)
  7.     end
  8.     else nop
  9. end
  10. else nop
  11.  
  12. call bguiopen() /* causes error 12 if it did not work */
  13. /* supply a second argument for a '0' return code instead of an ARexx
  14.    error */
  15.  
  16. esc='1B'x
  17. lf='0A'x
  18. cr='0D'x
  19. tab='09'x
  20. grspace.narrow=-1
  21. grspace.normal=-2
  22. grspace.wide=-3
  23.  
  24. fname=arg(1)
  25. if fname='' then do
  26.     options results
  27.     address ACTIVITY
  28.     'GET FILE'
  29.     if rc>0 then bguierror(12); else nop
  30.     fname=result
  31. end; else nop
  32.  
  33. if bguireadentries(fname,'LST')~=1 then bguierror(12); else nop
  34.  
  35. flag=0
  36. do i=0 for lst.count
  37.     if flag then do
  38.         lst.i=translate(lst.i,tab,';')
  39.     end; else do
  40.         if substr(lst.i,1,1)='-' then flag=1
  41.         drop lst.i
  42.     end
  43. end
  44.  
  45. signal on syntax /* important: bguiclose() MUST be called */
  46. signal on halt
  47. signal on break_c
  48.  
  49. /* using ARexx feature: ,<newline> is translated to nothing */
  50. /* the || are essential - any added space will cause trouble */
  51. /* redefining the same ID makes previous buttons unaccessible */
  52. /* do not redefine winclose etc. */
  53.  
  54. g=bguivgroup(,
  55.     bguilistview('listv',,'LST',ReadOnly,7)||,
  56.     bguihgroup(,
  57.         bguivarspace(50)||,
  58.         bguibutton('quit','_Quit')||,
  59.         bguivarspace(50),
  60.     )||bguilayout(LGO_FixMinHeight,1),
  61. ,grspace.normal,grspace.normal)
  62.  
  63. a=bguiwindow('User activity:' fname,g,50,90)
  64.  
  65. title='Date'tab'Time'tab'Left'tab'Right'tab'Move'tab'Keys'tab'Middle'
  66. mem=getspace(length(title)+1)
  67. if mem='00000000'x then bguierror(12)
  68. call export(mem,title'00'x)
  69. call bguiset(obj.listv,,LISTV_Titles!,mem)
  70.  
  71. if bguiwinopen(a)=0 then bguierror(12) else nop
  72. id=0
  73. do while bguiwinwaitevent(a,'ID')~=id.winclose
  74.     select
  75.         when id=id.winactive then nop
  76.         when id=id.wininactive then nop
  77.         when id=id.quit then leave
  78.         when id=id.winclose then nop
  79.         otherwise nop
  80.     end
  81. end
  82. call bguiclose()
  83. exit 0
  84.  
  85. syntax:
  86. if rc~=0 then say '+++ ['rc']' errortext(rc) 'at line' sigl; else nop
  87. call bguiclose()
  88. exit 10
  89.  
  90. break_c:
  91. halt:
  92. rc=0
  93. say '+++ Break at line' sigl
  94. call bguiclose()
  95. exit 10
  96.